home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / VIKINGW.DIR / 01645_Script_Ships < prev    next >
Text File  |  1995-09-12  |  7KB  |  256 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VShipsRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(10) then
  7.       ArrowCursor
  8.       repeat while rollover(10)
  9.         set the locH of sprite 15 to 496
  10.         set the locV of sprite 15 to 299
  11.         updatestage
  12.       end repeat
  13.       set the locH of sprite 15 to 996
  14.       updatestage
  15.     else
  16.       if rollover(14) then
  17.         ArrowCursor
  18.         repeat while rollover(14)
  19.           set the locH of sprite 13 to 160
  20.           set the locV of sprite 13 to 323
  21.           updatestage
  22.         end repeat
  23.         set the locH of sprite 13 to 960
  24.         updatestage
  25.       else
  26.         if rollover(19) then
  27.           ArrowCursor
  28.           repeat while rollover(19)
  29.             set the locH of sprite 16 to 429
  30.             set the locV of sprite 16 to 335
  31.             updatestage
  32.           end repeat
  33.           set the locH of sprite 16 to 999
  34.           updatestage
  35.         else
  36.           if rollover(21) then
  37.             VikingCursor
  38.             repeat while rollover(21)
  39.               puppetsprite 12, true
  40.               set the locH of sprite 12 to 422
  41.               set the locV of sprite 12 to 155
  42.               updatestage
  43.               if (the mousedown) then
  44.                 set gbeenclicked = 1
  45.               else
  46.                 --the mouse is up
  47.                 if gbeenclicked = 1 then
  48.                   repeat while gbeenclicked = 1
  49.                     BuildShip
  50.                   end repeat
  51.                 end if
  52.               end if
  53.             end repeat
  54.             set the locH of sprite 12 to 922
  55.             puppetsprite 12, false
  56.             updatestage
  57.           else
  58.             if rollover(25) then
  59.               VikingCursor
  60.               repeat while rollover(25)
  61.                 puppetsprite 17, true
  62.                 set the locH of sprite 17 to 355
  63.                 set the locV of sprite 17 to 133
  64.                 updatestage
  65.                 if (the mousedown) then
  66.                   set gbeenclicked = 1
  67.                   puppetsprite 2, true
  68.                 else
  69.                   --the mouse is up
  70.                   if gbeenclicked = 1 then
  71.                     repeat while gbeenclicked = 1
  72.                       AnimateLoop 2, 327, 5, "SV281900.AIF", 1
  73.                     end repeat
  74.                   end if
  75.                 end if
  76.               end repeat
  77.               puppetsprite 17, false
  78.               set the locH of sprite 17 to 955
  79.               updatestage
  80.               puppetsprite 2, false
  81.             else
  82.               if rollover(26) then
  83.                 VikingCursor
  84.                 repeat while rollover(26)
  85.                   puppetsprite 18, true
  86.                   set the locH of sprite 18 to 434
  87.                   set the locV of sprite 18 to 143
  88.                   updatestage
  89.                   if (the mousedown) then
  90.                     set gbeenclicked = 1
  91.                     puppetsprite 2, true
  92.                   else
  93.                     --the mouse is up
  94.                     if gbeenclicked = 1 then
  95.                       repeat while gbeenclicked = 1
  96.                         AnimateLoop 2, 327, 5, "SV281900.AIF", 1
  97.                       end repeat
  98.                     end if
  99.                   end if
  100.                 end repeat
  101.                 puppetsprite 18, false
  102.                 set the locH of sprite 18 to 934
  103.                 updatestage
  104.                 puppetsprite 2, false
  105.               else
  106.                 if rollover(27) then
  107.                   VikingCursor
  108.                   repeat while rollover(27)
  109.                     puppetsprite 48, true
  110.                     set the locH of sprite 48 to 512
  111.                     set the locV of sprite 48 to 143
  112.                     updatestage
  113.                     if (the mousedown) then
  114.                       set gbeenclicked = 1
  115.                       puppetsprite 2, true
  116.                     else
  117.                       --the mouse is up
  118.                       if gbeenclicked = 1 then
  119.                         repeat while gbeenclicked = 1
  120.                           AnimateLoop 2, 327, 5, "SV281900.AIF", 1
  121.                         end repeat
  122.                       end if
  123.                     end if
  124.                   end repeat
  125.                   set the locH of sprite 48 to 912
  126.                   updatestage
  127.                   puppetsprite 48, false
  128.                   puppetsprite 2, false
  129.                 else
  130.                   if rollover(28) then
  131.                     VikingCursor
  132.                     repeat while rollover(28)
  133.                       puppetsprite 20, true
  134.                       set the locH of sprite 20 to 356
  135.                       set the locV of sprite 20 to 158
  136.                       updatestage
  137.                       if (the mousedown) then
  138.                         set gbeenclicked = 1
  139.                         puppetsprite 2, true
  140.                       else
  141.                         --the mouse is up
  142.                         if gbeenclicked = 1 then
  143.                           repeat while gbeenclicked = 1
  144.                             AnimateLoop 2, 327, 5, "SV281900.AIF", 1
  145.                           end repeat
  146.                         end if
  147.                       end if
  148.                     end repeat
  149.                     set the locH of sprite 20 to 956
  150.                     puppetsprite 20, false
  151.                     updatestage
  152.                     puppetsprite 2, false
  153.                   else
  154.                     if rollover(41) then
  155.                       HandCursor
  156.                     else
  157.                       if rollover(42) then
  158.                         HandCursor
  159.                       else
  160.                         ArrowCursor
  161.                       end if
  162.                     end if
  163.                   end if
  164.                 end if
  165.               end if
  166.             end if
  167.           end if
  168.         end if
  169.       end if
  170.     end if
  171.   end if
  172.   RandomQuestion(gQuest)
  173. end
  174.  
  175.  
  176. on BuildShip 
  177.   ArrowCursor
  178.   puppetsound "SV281100.AIF"
  179.   set count = 0
  180.   Repeat while count < 3 and (the mouseup)
  181.     ScrubOn
  182.     BoardOn
  183.     updatestage
  184.     wait .3
  185.     
  186.     ScrubOff
  187.     AxOn
  188.     DrillOn
  189.     updatestage
  190.     wait .3
  191.     
  192.     ScrubOn
  193.     DrillOff
  194.     BoardOff
  195.     updatestage
  196.     wait .3
  197.     
  198.     ScrubOff
  199.     drillon
  200.     AxOff
  201.     updatestage
  202.     wait .3
  203.     
  204.     DrillOff
  205.     updatestage
  206.     wait .3
  207.     set count = count + 1
  208.   end repeat
  209.   Puppetsound 0
  210.   set gbeenclicked = 0
  211. end
  212.  
  213. on AxOn
  214.   puppetsprite 7, true
  215.   set the locH of sprite 7 to 179
  216.   set the locV of sprite 7 to 324
  217. end
  218.  
  219. on AxOff
  220.   puppetsprite 7, false
  221.   set the locH of sprite 7 to -200
  222. end
  223.  
  224. on ScrubOn
  225.   puppetsprite 8, true
  226.   set the locH of sprite 8 to 225
  227.   set the locV of sprite 8 to 296
  228. end
  229.  
  230. on ScrubOff
  231.   puppetsprite 8, false
  232.   set the locH of sprite 8 to -200
  233. end
  234.  
  235. on BoardOn
  236.   puppetsprite 9, true
  237.   set the locH of sprite 9 to 307
  238.   set the locV of sprite 9 to 284
  239. end
  240.  
  241. on BoardOff
  242.   puppetsprite 9, false
  243.   set the locH of sprite 9 to -200
  244. end
  245.  
  246. on DrillOn
  247.   puppetsprite 11, true
  248.   set the locH of sprite 11 to 356
  249.   set the locV of sprite 11 to 375
  250. end
  251.  
  252. on DrillOff
  253.   puppetsprite 11, false
  254.   set the locH of sprite 11 to -200
  255. end
  256.